CAAIlluminatedFraction_MercuryMagnitudeMuller <-
function(r, Delta, i){
.Call("CAAIlluminatedFraction_MercuryMagnitudeMuller", r, Delta, i)
}
